home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 22 Graphics & Utilities / BMP2GIF.SDA / BMP2GIF.BIN (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.4 KB  |  57 lines
  1. 10 SYS4881:CLR:M$=CHR$(13):DIMF$:Z$=CHR$(.):Q$=CHR$(34):W=4271
  2. 20 U$="                                      [145]"
  3. 50 PRINT"[147]"
  4. 55 PRINT"[197]NTER DEVICE # OF SOURCE DRIVE.":PRINT"([197]NTER 0 TO EXIT.)"
  5. 65 PRINT"  8[145]":INPUTDR:IFDR=.THENPOKE55,.:POKE56,160:PRINT"[142]":END
  6. 70 IFDR<4ORDR>30THENPRINT"[147][201][204][204][197][199][193][204] [196][197][214][201][195][197] [206][213][205][194][197][210]":GOTO55
  7. 75 POKE186,DR:POKE185,.:POKE184,8:POKE183,1
  8. 80 POKE187,14:POKE188,8:SYS65472:CLOSE8:IFPEEK(783)AND1THENI=DR:GOSUB600:GOTO55
  9. 85 OPEN15,DR,15:INPUT#15,J$,O$,H$,N$:CLOSE15:IFJ$="00"THEN90
  10. 87 PRINT"[147]";J$;",";O$;",";H$;",";N$:GOTO55
  11. 90 SYSW:PRINT:IFF$=""THENPRINT"[147][206][207] [198][201][204][197][211] [211][197][204][197][195][212][197][196]":GOTO55
  12. 200 OPEN8,DR,8,F$:PRINT"[147][210]EADING IN [194][205][208] FILE..."
  13. 215 SYSW+307:CLOSE8:PRINT:P=PEEK(2):IFP=255THEN240
  14. 230 IFPTHENPRINT"[147][201]MAGE SIZE EXCEEDS 480,000 PIXELS":GOTO55
  15. 235 PRINT"[147][194]AD FILE":GOTO55
  16. 240 X=PEEK(W+283)+256*PEEK(W+284):P=INT((X+7)/8):POKE253,P:POKE143,XAND7
  17. 245 X=PEEK(W+285)+256*PEEK(W+286):M=P*X+62:M=INT((M+253)/212)
  18. 250 X=X*P-P+5376:H=INT(X/256):L=X-256*H:POKE251,L:POKE252,H
  19. 270 PRINT"[196]ISK MAY NOW BE REMOVED FROM SOURCE"
  20. 280 PRINT"DRIVE.  [208]UT FORMATTED DISK INTO":PRINT"DESTINATION DRIVE.":GOSUB900
  21. 300 PRINT"[147]"
  22. 305 PRINT"[197]NTER DEVICE # OF DESTINATION DRIVE.":PRINT"([197]NTER 0 TO START OVER.)"
  23. 315 CLOSE9:CLOSE15:PRINT"  8[145]":INPUTDW:IFDW=.THEN50
  24. 320 IFDW<4ORDW>30THENPRINT"[147][201][204][204][197][199][193][204] [196][197][214][201][195][197] [206][213][205][194][197][210]":GOTO305
  25. 325 POKE186,DW:POKE185,8:POKE184,8:POKE183,1:POKE187,2:POKE188,.:POKE2,35
  26. 330 SYS65472:IFPEEK(783)AND1THENCLOSE8:I=DW:GOSUB600:GOTO305
  27. 335 OPEN15,DW,15,"U1 8 0 25 0":PRINT#15,"U2";8;.;25;.
  28. 340 INPUT#15,J$,O$,H$,N$:CLOSE8:IFJ$="00"THEN350
  29. 345 CLOSE15:PRINT"[147]";J$;",";O$;",";H$;",";N$:GOTO305
  30. 350 OPEN8,DW,.,"$$":PRINT"[147]0 ";:GET#8,A$,A$,A$,A$,A$,A$
  31. 355 GET#8,A$:IFA$<>""THENPRINTA$;:GOTO355
  32. 360 PRINT:GET#8,A$,A$,A$,B$:N=ASC(A$+Z$)+256*ASC(B$+Z$):PRINT"[157]";N;
  33. 365 GET#8,A$:IFA$<>""THENPRINTA$;:GOTO365
  34. 370 CLOSE8:IFN>MTHEN380
  35. 372 PRINT"[212]HERE MAY NOT BE ENOUGH ROOM ON THE":PRINT"DISK.  [199]O FOR IT (Y/N)?"
  36. 374 GETA$:IFA$="Y"THEN380
  37. 375 IFA$="N"THENCLOSE15:GOTO300
  38. 377 GOTO374
  39. 380 PRINT
  40. 385 PRINT"[197]NTER FILENAME FOR [199][201][198] FILE."
  41. 386 PRINT"([208]RESS <[210][197][212][213][210][206]> FOR DEVICE # PROMPT.)"
  42. 387 F$="":X=65:Y=X:PRINTU$:INPUTF$:IFF$=""THENCLOSE15:GOTO300
  43. 390 OPEN9,DW,1,F$:INPUT#15,J$,O$,H$,N$:IFJ$="00"THEN393
  44. 392 CLOSE9:PRINT"";U$;"";J$;",";O$;",";H$;",";N$:GOTO380
  45. 393 S$=CHR$(X)+CHR$(Y):OPEN8,DW,8,S$+",W":INPUT#15,J$,O$,H$,N$:IFJ$="00"THEN410
  46. 395 CLOSE8:IFJ$<>"63"THENPRINT"";U$;"[147]";J$;",";O$;",";H$;",";N$:GOTO305
  47. 400 Y=Y+1:IFY=91THENY=65:X=X+1
  48. 402 GOTO393
  49. 410 PRINT"[147][215]RITING TEMPORARY FILE...":SYSW+542:CLOSE8
  50. 415 OPEN8,DW,8,S$:PRINT"[147][215]RITING [199][201][198] FILE...":SYSW+654
  51. 420 PRINT#9,";";:FORI=1TO1:GET#15,A$:PRINTA$;:I=ST:NEXT:CLOSE8:CLOSE9
  52. 430 PRINT#15,"S0:";S$:GOSUB900:GOTO50
  53. 600 PRINT"[147]?[196][197][214][201][195][197]";I;"[157] [206][207][212] [208][210][197][211][197][206][212]":RETURN
  54. 900 PRINT"[208]RESS <[210][197][212][213][210][206]>."
  55. 910 GETA$:IFA$<>M$THEN910
  56. 920 CLOSE8:CLOSE9:CLOSE15:RETURN
  57.